home *** CD-ROM | disk | FTP | other *** search
/ Publication 15 / Publication_15_19xx_Civitas_de_Side_B.d64 / x ref (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  72 lines
  1. 1 goto10
  2. 2 rem"*** bugger software 1984 ***
  3. 3 [161]#1,g$:ga[178]g:g[178][198](g$[170]n$):[142]
  4. 5 [141]3:f[178]g:[141]3:f[178]f[170]256[172]g:[142]
  5. 7 [139]xx[179]xm[171]2[175]vz[179]xm[171]2[167][142]
  6. 8 [153]:[153]"more than "xm;"cmd wait var./jumps -start again":[160]1:[128]
  7. 10 [153]"load  **  x - r e f  ** 2049":[133]"on prg. start adr.  ";bt
  8. 20 [153],,"100":[133]"on no.of var./jumps ";xm:[153]" printout (y/n)   ? ";
  9. 30 [151]198,0:[146]198,1:[161]g$:[139]g$[179][177]"y"[167]g$[178]"n"
  10. 40 p[178]3:[153]g$:[139]g$[178]"y"[167]p[178]4
  11. 50 [134]x$(xm),a$(xm),z$(xm):n$[178][199](0)
  12. 60 [133]" filename = ";g$:g$[178]g$[170]",p,r"
  13. 70 [159]1,8,3,g$:[141]3:x[178]g:[141]3:x[178]x[170]256[172]g:g$[178]ds$
  14. 80 [139]bt[179][177]x[167][153]" error!":[160]1:[128]
  15. 90 [153]"load searching prg.":[137]500
  16. 100 r[178]x:[139][182](r)[179]256[167][139](r[175]127)[178]r[167]130
  17. 110 [139]r[179][177]143[167]670
  18. 120 xg[178]1e9:[137]670
  19. 130 r$[178][199](r):v$[178]"":[139]r$[179]"a"[176]r$[177]"z"[167]670
  20. 140 [139]r$[178]"e"[167]r[178]ga:[139]r[177]47[175]r[179]58[176]r[178]46[167]670
  21. 150 rr[178]0:[137]180
  22. 160 [141]3:r[178]g:x0[178]x0[170]1:r$[178][199](r):[139]r[178]0[176]r[178]34[167]220
  23. 165 [139]rr[167]210
  24. 170 [139]r$[179]"0"[176]r$[177]"z"[176](r$[177]"9"[175]r$[179]"a")[167]190
  25. 180 v$[178]v$[170]r$:[153]r$;:[137]160
  26. 190 [139]rr[167]210
  27. 200 rr[178]r$[178]"$"[176]r$[178]"%":[139]rr[167][153]r$;:v$[178]v$[170]r$:[137]160
  28. 210 [139]r$[178]"("[167][153]r$;:v$[178]v$[170]r$
  29. 220 [153]" ";:[139]vz[179]0[167]250
  30. 230 r[178][171]1:[129]i[178]0[164]vz:[139]a$(i)[178]v$[167]r[178]i:i[178]vz[170]1
  31. 240 [130]:[139]r[177][178]0[167]270
  32. 250 [141]7:vz[178]vz[170]1:r$[178][196](xz):z$(vz)[178][201]("       "[170]r$,7)[170]r$
  33. 260 a$(vz)[178]v$:[137]300
  34. 270 v$[178][196](xz):[139][201](z$(r),[195](v$))[178]v$[167]300
  35. 280 [139][195](z$(r))[179]60[167]z$(r)[178]z$(r)[170]v$:[137]300
  36. 290 [141]7:vz[178]vz[170]1:d[178]0:a$(vz)[178]a$(r):z$(vz)[178]z$(r):z$(r)[178][201]("       "[170]v$,7)[170]v$
  37. 300 x[178]g:[139]x[178]0[167]640
  38. 310 [139]x[178]34[167]xg[178]1[171]xg:[137]670
  39. 320 [137]530
  40. 400 [139]vz[179]0[167][153]"no variables!":[128]
  41. 410 [159]1,p:[157]1:[153]:[153]" variables x-ref.:":[153]
  42. 420 [129]i[178]0[164]vz:a$(i)[178]a$(i)[170][200](z$(i),7):[130]:v$[178]"":[129]i[178]0[164]vz:r$[178]"zz
  43. 430 forj=0tovz:z$=a$(j):ifz$>v$andz$<r$thenr$=z$:zn$=z$(j)
  44. 440 next:r=len(r$)-7
  45. 450 ifleft$(v$,r)=left$(r$,r)thenprint" ",:goto470
  46. 460 printleft$(r$,r),
  47. 470 v$=r$:printmid$(zn$,8):next:print#1:close1:end
  48. 500 vz=-1:xx=-1:xp=bt:gosub5:xe=f
  49. 510 gosub5:xz=f:print:printxz,
  50. 520 xg=1:forx0=xp+4toxe-2:gosub3:x=g:ifx=34thenxg=1-xg:goto670
  51. 530 x=xg*x:ifx<>137andx<>138andx<>141andx<>155andx<>167then100
  52. 540 x$="":xz$=str$(xz):ifdthen530
  53. 550 x0=x0+1:gosub3:x=g:ifx=32then550
  54. 560 ifx>47andx<58thenx$=x$+chr$(x):goto550
  55. 570 ifx$=""then660
  56. 580 xq=-1:printx$;"  ";:x$=right$("       "+x$,7):forxi=0toxx
  57. 590 ifleft$(x$(xi),7)=x$thenxq=xi:xi=xx
  58. 600 next:ifxq<0thengosub7:xx=xx+1:xq=xx:goto630
  59. 610 iflen(x$(xq))<55thenx$(xq)=x$(xq)+xz$:goto640
  60. 620 gosub7:xx=xx+1:x$(xx)=x$(xq)
  61. 630 x$(xq)=x$+"   "+xz$
  62. 640 ifx=0thenx0=xe-2:next:goto680
  63. 650 ifx=32thenx0=x0+1:gosub3:x=g:goto640
  64. 660 ifx=44thenx$="":goto550
  65. 670 next:gosub3
  66. 680 xp=xe:gosub5:xe=f:ifxe>0then510
  67. 690 close1:ifxx<0thenprint:print"no jumps!":goto400
  68. 700 open1,p:cmd1:print:print" line no. x-ref:":print:xz$=chr$(1)
  69. 710 forxq=0toxx:x$="a      ":forx0=0toxx:xv$=x$(x0):ifxv$>xz$andxv$<x$thenx$=xv$
  70. 720 next:xv$=x$:ifleft$(xv$,7)=left$(xz$,7)thenxv$="       "+mid$(x$,8)
  71. 730 printxv$:xz$=x$:next:print#1:close1:goto400
  72.